sub TableTabs,#check
  newline
  ClearTabs
  #lineSkip=2
  #cellSkip=2
  #tableWidth=#rightMargin$-#rightSkip-#hpos$-21
  #cellWidth=(#tableWidth-3*#cellSkip-20)/3
  #nameWidth=#cellWidth
  if #cellWidth>175
    #nameWidth=175
    #cellWidth=(3*#cellWidth-175)/2
  endif
  #qSpc=32
  if #check=1
    SetTab #habs$+#nameWidth,#habs$+#nameWidth+#qSpc,#habs$+#nameWidth+#qSpc+#habs$+.8*#cellWidth,#habs$+#tableWidth-22,#habs$+#tableWidth
  else if #check=0
    SetTab #habs$+#nameWidth+#qSpc,#habs$+#tableWidth
  else
    SetTab #habs$+#nameWidth+#qSpc,#habs$+#tableWidth-22,#habs$+#tableWidth
  endif
  #first="yes"
endsub
